COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	!  Defines the relocation and PC constants for the emiter.
C00006 ENDMK
C⊗;
!  Defines the relocation and PC constants for the emiter.
Declares the procedures in EMITER.SAI.  Does not require EMITER.REL;

!  RELOC constants;
DEFINE PSINST = "0";	!  Pseudo-instruction;	
DEFINE SYMDEC = "1";	!  Declaration of numbered symbol;
DEFINE SYMREF = "2";	!  Reference to numbered symbol;
!  DEFINE NEWPC = "3";	!  Name of PC in DATA.  Pushes old PC;
!  DEFINE POPPC = "4";	!  Retrieve previous PC;
DEFINE REMARK = "5";	!  Just a comment for debugging;
DEFINE SKIP = "6";	!  Skip some words (DATA tells how many);
DEFINE CONST = "7";	!  Just an octal constant;

!  PC constants;
DEFINE PSDCODE = "0";
DEFINE TJFILE = "1";
DEFINE SMLBLK = "2";
DEFINE DUMMY = "0";


EXTERNAL PROCEDURE EMIT(INTEGER PC; REFERENCE INTEGER DATA, RELOC;
    INTEGER LTH (1));
EXTERNAL PROCEDURE COMERR
  (STRING MESSG;RECORD_POINTER(ANY_CLASS) CONTXT (NULL_RECORD));
EXTERNAL PROCEDURE INT_TO_11FLOAT(REFERENCE INTEGER RES1, RES2; REAL ARG);
EXTERNAL PROCEDURE INITOUT;
EXTERNAL PROCEDURE CLOSEOUT;
EXTERNAL PROCEDURE MAKE_REMARK(INTEGER PC;STRING REMK);
EXTERNAL INTEGER PROCEDURE GENLABEL;